www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\other-b\D_admin_login.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file="../inc/new_md5.asp"-->
<!--#include file="../inc/functionb.asp"-->
<!--#include file=inc/sys.asp-->
<!--#include file=inc/get.asp-->
<%
Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Set rsa = server.CreateObject("adodb.recordset")
sql = "select * from ND_admin"
rsa.open sql, Conn, 1, 3
if rsa.eof or rsa.bof then
session(nd_admin_cach_varb_name)="root123root123"
rsa.close
set rsa=nothing
response.Redirect "Admin_user_add.asp"
response.end
end if
%>
<%
Dim UserTrueIP, TrueIP
Action = Trim(Request("Action"))
if cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then
response.redirect "D_admin_s"&"e.asp"
response.end
end if
If Action = "Login" Then
Call ChkLogin
ElseIf Action = "Logout" Then
Call Logout
Else
Call main
End If
If FoundErr = True Then
Call WriteErrMsg
End If
conn.close
set conn=nothing
%>
<!--#include file=inc/inc_sys.asp-->
<%sub main%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
text-decoration: none;
}
-->
</style>
<head>
<title>后台管理</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<style type="text/css">
<!--
body {
margin-top: 50px;
font-family: "宋体";
font-size: 12px;
color: #023a84;
text-decoration: none;
}
td {
font-family: "宋体";
font-size: 12px;
color: #cc7218;
text-decoration: none;
}
tr {
font-family: "宋体";
font-size: 12px;
color: #f187a9;
text-decoration: none;
}
-->
</style>
<script language=javascript>
<!--
function SetFocus() {
if(document.Login.UserName.value == '')
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm() {
if(document.Login.UserName.value == '') {
alert('请输入用户名！');
document.Login.UserName.focus();
return false;
}
if(document.Login.passWord.value == '') {
alert('请输入密码！');
document.Login.passWord.focus();
return false;
}
if (document.Login.CheckCode.value == '') {
alert ('请输入您的验证码！');
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser() {
}
function CheckBrowser2() {
var app=navigator.appName;
var verStr=navigator.appVersion;
if(app.indexOf('Netscape') != -1) {
alert('JSA友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');
} else if(app.indexOf('Microsoft') != -1) {
if (verStr.indexOf('MSIE 3.0')!=-1 || verStr.indexOf('MSIE 4.0') != -1 || verStr.indexOf('MSIE 5.0') != -1 || verStr.indexOf('MSIE 5.1') != -1)
alert('JSA友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。');
}
}
//-->
</script>
<body>
<form name='Login' action='D_admin_login.asp' method='post' target='_parent' onSubmit='return CheckForm();'>
<table width="558" height="363" border="0" align="center" cellpadding="0" cellspacing="0" background="images/admin_bg.jpg">
<tr>
<td height="52"> </td>
</tr>
<tr>
<td height="146"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="32%"> </td>
<td width="11%"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td> </td>
<td align="right" valign="bottom">用户名称：</td>
<td colspan="2" valign="bottom"><input name="UserName" type="text" id="UserName" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'"></td>
</tr>
<tr>
<td> </td>
<td align="right" valign="bottom">用户密码：</td>
<td colspan="2" valign="bottom"><input name="passWord" type="password" id="passWord" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'"></td>
</tr>
<tr>
<td> </td>
<td align="right" valign="bottom">验 证 码：</td>
<td width="24%" valign="bottom"><input name="CheckCode" type="text" id="checkCode" style='width:110px; BORDER-RIGHT: #F7F7F7 0px solid; BORDER-TOP: #F7F7F7 0px solid; FONT-SIZE: 9pt; BORDER-LEFT: #F7F7F7 0px solid; BORDER-BOTTOM: #c0c0c0 1px solid; HEIGHT: 16px; BACKGROUND-COLOR: #F7F7F7' onMouseOver="this.style.background='#b5ebf6';" onMouseOut="this.style.background='#F7F7F7'">
</td>
<td width="33%" valign="bottom"><img src="checkcode.asp" id="chcodeimg">
<%
'以下这句可以防止重新返回本页后 验证码不刷新而 导致的验证码总为空 而导致的登陆不了
if session("CheckCode")="" then
'防止刷新后不行又自动不断刷新，最大重试次数限制为max_r_c_ci
max_r_c_ci=8
if session("CheckCode_r_count")="" then
session("CheckCode_r_count")=1
else
session("CheckCode_r_count")=session("CheckCode_r_count")+1
end if
if session("CheckCode_r_count")>=max_r_c_ci then
session("CheckCode_r_count")=1
else
%>
<script language=javascript>
window.location.reload();
</script>
<%
end if
else
session("CheckCode_r_count")=1
end if
%>
</td>
</tr>
<tr>
<td> </td>
<td><input type='hidden' name='Action' value='Login'></td>
<td colspan="2"><input type='image' name='Submit' src="images/enter.jpg"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="91"> </td>
</tr>
<tr>
<td height="47" align="center" valign="bottom"></td>
</tr>
<tr>
<td height="25"> </td>
</tr>
</table>
</form>
<script language='JavaScript' type='text/JavaScript'>
CheckBrowser();
SetFocus();
</script>
<span class="STYLE1">新动软网站内容管理cms系统-power by <a href="http://www.aspcpu.com"><span class="STYLE1">http://www.aspcpu.com</span></a> 程序制作:阮丁远(柏拉图的程序) </span>
</body>
</html>
<%end sub%>
<!--#include file=inc/inc_sys.asp-->
<%
Sub ChkLogin()
Dim sql, rs
Dim UserName, Password, CheckCode, RndPassword
UserName = ReplaceBadChar(Trim(Request("UserName")))
Password = ReplaceBadChar(Trim(Request("Password")))
CheckCode = LCase(ReplaceBadChar(Trim(Request("CheckCode"))))
FoundErr = false
If UserName = "" Then
FoundErr = True
errmsg = errmsg & "用户名不能为空！"
End If
If cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then
response.end
End If
If Password = "" Then
FoundErr = True
errmsg = errmsg & "密码不能为空！"
End If
If CheckCode = "" Then
FoundErr = True
errmsg = errmsg & "验证码不能为空！"
End If
If Trim(Session("CheckCode")) = "" Then
FoundErr = True
errmsg = errmsg & "你登录时间过长，请重新返回登录页面进行登录。"
End If
If CheckCode <> Session("CheckCode") Then
FoundErr = True
errmsg = errmsg & "您输入的验证码和系统产生的不一致，请重新输入。"
End If
If FoundErr = True Then
Exit Sub
End If
If UserTrueIP = "" Then
TrueIP = Trim(Request.ServerVariables("HTTP_X_FORWARDED_FOR"))
If TrueIP = "" Then TrueIP = Request.ServerVariables("REMOTE_ADDR")
Else
TrueIP = UserTrueIP
End If
%>
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from ND_admin where aname='"&UserName&"' and passwd='"&md5(Password)&"'"
rs.open sql, Conn, 1, 3
if rs.eof or rs.bof then
%>
<script language=javascript>
//alert("密码或用户名错误!");
//self.location="D_admin_login.asp";
</script>
<%
FoundErr = True
errmsg = errmsg & "密码或用户名错误，请重新输入。"
Exit Sub
'response.end
else
session(nd_admin_cach_varb_name)=UserName
session(nd_admin_cach_varb_name&"_pwd")=md5(Password)
if set_admin_cookies_on=1 then
response.cookies(nd_admin_cach_varb_name)=UserName
Response.Cookies(nd_admin_cach_varb_name).Expires=DateAdd("n",30,now())
end if
' Conn.Execute ("Insert Into admin_log (Logdate,time,UserName,UserIP,LogContent) values (" & date() & ","&now()&",'" & UserName & "','" & TrueIP & "','登录成功')")
rs.Close
Response.Redirect "D_index_load.asp"
end if
End Sub
Sub Logout()
session(nd_admin_cach_varb_name)=""
response.cookies(nd_admin_cach_varb_name)=""
Response.Redirect "/index.asp"
End Sub
'****************************************************
'过程名：WriteErrMsg
'作 用：显示错误提示信息
'参 数：无
'****************************************************
Sub WriteErrMsg()
strErr=""
strErr = strErr & "<htmL><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strErr = strErr & "<link href='inc/Admin_Style.css' rel='stylesheet' type='text/css'></head><body>" & vbCrLf
strErr = strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strErr = strErr & " <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbCrLf
strErr = strErr & " <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因：</b><br>" & errmsg & "</td></tr>" & vbCrLf
strErr = strErr & " <tr align='center'><td class='tdbg'><a href='D_admin_login.asp'><< 返回登录页面</a></td></tr>" & vbCrLf
strErr = strErr & "</table><br><br><br><br><br><br><br><br><br><br><br><br><center>"&"<font color=#ffffff>"&"新"&"动"&"软"&"万"&"能"&"网"&"站"&"系"&"统 版"&"权"&"所"&"有 pow"&"er by h"&"tt"&"p://"&"w"&"w"&"w.a"&"pc"&"p"&"u.co"&"m"&" 程"&"序"&"制"&"作:"&"阮"&"丁"&"远("&"柏"&"拉"&"图"&"的"&"程"&"序"&") </font><center>" & vbCrLf
strErr = strErr & "</body></html>" & vbCrLf
Response.Write strErr
'Response.Write("<script>alert("""&errmsg&""");location.href=""D_admin_login.asp"";</script>")
End Sub
%>